** FIGURE D5 
clear
use "$P_Data_Processed/monthly_station_data_e5_merged.dta"

sort mktid year_month StID
by mktid year_month: gener use_mkt = 1 if _n==1
by mktid year_month: gener n_competitors_in_mkt = _N
gegen n_adopters_in_mkt = total(treat), by(mktid year_month)
gener share_adopters_in_mkt = n_adopters_in_mkt/n_competitors_in_mkt

histogram share_adopters_in_mkt if year==2018 & month==12 & use_mkt==1 & share_adopters_in_mkt>0, color(red%30) percent xtitle("Share of Adopters in Markets with at Least 1 Adopter in December 2018")
gr export "$P_Figures/Figure_D5.eps", replace
